home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
TPUG Xtras
/
JimBTax
/
tax86.d64
/
tax eh!d
(
.txt
)
< prev
Wrap
Commodore BASIC
|
2009-01-24
|
30KB
|
891 lines
5 IF TE=O THEN TE=49152:LOAD"EH'D AID",8,1
9 SYS TE
10 GOTO20
12 !DEF(0,1,1,0,32,10,10):!DIM(6,3,33,8)
14 W$="ENTER THE NUMBER OF CHILDREN FOR WHOM YOU'RE ENTITLED TO CHILD TAX "
15 W$=W$+"CREDIT. THAT NUMBER APPEARS ON YOUR TFA1 SLIP. "
17 PRINT"[147]":!OPEN,W$
18 INPUT"";P5
19 RETURN
20 PRINT"[147]":FORI=0TO23
30 PRINT"1987 [158]TAX EH!D [154] FOR INCOME FROM 1986 ":NEXT
32 GOSUB3013
40 !DEF(0,1,1,0,32,100,100):!DIM(2,3,33,5)
42 W$="THE PROGRAM [158]TAX EH!D IS PROVIDED ON A 'PAY WHAT YOU THINK IT'S WORTH"
43 W$=W$+" BASIS'."
45 !OPEN,W$:GOSUB3013
50 !DEF(0,1,1,0,32,100,100):!DIM(8,3,33,6)
51 W$="IF YOU FIND [158]TAX EH!D TO BE OF VALUE AND WISH TO REMUNERATE THE WRITER"
52 W$=W$+". IT WOULD BE MUCH APPRECIATED."
53 !OPEN,W$
54 FORX=1TO2500:NEXT
55 !DIM(15,3,33,6)
56 W$="MY ADDRESS IS: RONALD CAMERON RR#2 MONKLAND "
57 W$=W$+" ONTARIO K0C 1V0 "
58 !OPEN,W$
59 GOSUB8316
60 !DEF(0,1,1,0,32,75,75):!DIM(2,2,35,8)
62 W$="NEXT YEAR'S [158]TAX EH!D WILL ONLY BE AVAILABLE THROUGH THE MAIL. THE "
64 W$=W$+"MAILING LIST WILL CONSIST OF THOSE WHO SEND A REMUNERATION"
65 W$=W$+" FOR THIS YEAR'S PROGRAM (SOUNDS FAIR EH?)"
66 PRINT"[147]":!OPEN,W$
70 !DEF(0,1,1,0,32,75,75):!DIM(15,1,37,5)
72 W$="PROGRAM IS NOT PROTECTED SO YOU CAN GIVE COPIES TO ALL YOUR "
74 W$=W$+"FRIENDS WHO HAVE C-64'S OR 128'S"
78 !OPEN,W$
79 GOSUB8316:GOSUB89
80 !DEF(0,1,1,0,32,75,75):!DIM(4,4,22,11)
81 W$="IF YOU RECEIVED A TFA1 (CHILD TAX CREDIT) SLIP FROM THE GOVERNMENT "
82 W$=W$+"THEN YOU MUST FILL OUT A SCHEDULE 10 (INCLUDED WITH YOUR TAX FORM). "
83 W$=W$+"IF YOU RECEIVED A TFA1, ENTER A Y[146] IF YOU DIDN'T, THEN ENTER A N[146]."
84 !OPEN,W$:INPUTA$
85 IF A$="Y"THENGOSUB8500
88 RETURN
89 !DEF(0,1,1,0,32,75,75):!DIM(5,16,22,11)
90 W$="NOT FOR USE BY SELF-EMPLOYED INDIVIDUALS"
91 PRINT"[147]":!OPEN,W$:GOSUB3011
100 !DEF(0,1,1,0,32,1,1):!DIM(10,20,12,7)
105 W$="THAT INCLUDES FARMERS AND FISHERMEN"
106 !OPEN,W$
107 GOSUB3012:!DEF(0,1,10,0,32,50,50):!DIM(19,21,19,5)
108 W$="THIS PROGRAM HAS BEEN CREATED BY RONALD D CAMERON"
109 !OPEN,W$:GOSUB3012
110 !DEF(0,1,10,0,32,150,80):!DIM(5,6,15,15)
111 W$="EVEN A PROFESSIONAL TAX PREPARER WHO IS ABLE TO QUESTION YOU AS "
112 W$=W$+"HE PREPARES YOUR RETURN, CANNOT GUARANTEE THE ACCURACY OF YOUR RETURN"
113 !OPEN,W$:GOSUB3013
114 !DEF(0,1,2,0,32,20,20):!DIM(7,6,15,8)
115 W$="[158]TAX EH!D[159] CONTAINS NO GUARANTEE, NEITHER EXPLICIT NOR IMPLIED"
116 !OPEN,W$
118 GOSUB3013:!DEF(0,1,5,102,32):!DIM(2,19,19,8)
120 W$="[146][158]TAX EH!D[159] HOWEVER SHOULD BE ALL THAT IS REQUIRED FOR THE "
122 W$=W$+"MAJORITY OF THE GENERAL PUBLIC"
123 !OPEN,W$
124 GOSUB8316
125 GOSUB8027
127 GOTO5000
128 !CLOSE:GOSUB3011:!CLOSE:GOSUB3011:!CLOSE:GOSUB3011:!CLOSE:GOSUB3011:!CLOSE
130 GOSUB3010:!CLOSE
500 GOSUB3050
3000 A$="":GETA$:IFA$=""THEN3000
3005 RETURN
3010 FORX=1TO1500:NEXT:RETURN
3011 FORX=1TO1500:NEXT:RETURN
3012 FORX=1TO1500:NEXT:RETURN
3013 FORX=1TO3000:NEXT:RETURN
3014 FORX=1TO1500:NEXT:RETURN
3050 !DEF(1,1,1,0,32,10,10):!DIM(21,3,32,3)
3060 W$=" PRESS SPACE BAR TO CONTINUE "
3070 !OPEN,W$
3071 GOSUB3000
5000 POKE53280,3:POKE53281,3:POKE646,11:PRINT"[147]1986 TAX RETURN"
5001 PRINT" DO NOT USE COMMAS (,) IN YOUR REPLIES"
5005 INPUT"DO YOU WISH TO ENTER NAME, ADDRESS, ETC.Y[146] OR N[146]";A$
5008 IF A$="N"THENGOTO5060
5010 PRINT"[147]"
5015 INPUT"NAME (FIRST NAME, INITIAL, SURNAME)";AA$
5020 INPUT"SPOUSE'S GIVEN NAME";AI$
5025 INPUT"SOCIAL INSURANCE NUMBER";AB$
5030 INPUT"SPOUSE'S S.I.N.";AC$
5035 INPUT"ADDRESS (#, ST, APT#, PO BOX#, RR#)";AD$
5040 INPUT"CITY & PROVINCE";AE$
5045 INPUT"BIRTHDATE (2 FIG DAY, 2 FIG MONTH, YEAR";AF$
5050 INPUT"TYPE OF WORK OR OCCUPATION IN 1986";AG$
5055 INPUT"NAME OF PRESENT EMPLOYER";AH$
5060 PRINT"[147] THIS PROGRAM WAS DESIGNED BY"
5070 PRINTCHR$(147)"INCOME TAX CALCULATION"
5080 PRINT:PRINT:PRINT"TOTAL EMPLOYMENT INCOME--BOX C ON ALL T4 SLIPS"
5081 GOSUB8000
5084 INPUT"";I1
5085 !CLOSE:PRINT"[147]OTHER EMPLOYMENT INCOME":GOSUB8015
5090 GOSUB7585:GOSUB7580
5095 INPUTA$:IFA$="N"THENGOTO5160
5100 INPUT"[147]SPECIFY TYPE";IT$
5105 INPUT"SPECIFY AMOUNT";I7
5110 PRINT"ANY MORE?":GOSUB7580
5115 REM
5120 INPUT A$:!CLOSE:IFA$="N"THENGOTO5160
5125 INPUT"SPECIFY TYPE";IU$
5130 INPUT"SPECIFY AMOUNT";I8
5135 PRINT"ANY MORE?";:GOSUB7580
5140 REM
5145 INPUT A$:!CLOSE:IFA$="N"THENGOTO5160
5150 INPUT"SPECIFY TYPE";IV$
5155 INPUT"SPECIFY AMOUNT";I9
5160 L1=I7+I8+I9
5165 !CLOSE:PRINT"[147]TOTAL OF O.E.I. IS ";:PRINTL1
5170 Z2=L1+I1
5175 PRINT"TOTAL EMPLOYMENT EARNINGS IS ";:PRINTZ2
5180 IF L1+I1=>2500THENL2=L1+I1-500
5185 IF L1+I1<2500THENL2=L1+I1-((L1+I1)/5)
5190 Z1=L1+I1-L2
5195 PRINT"EMPLOYMENT EXPENSE DEDUCTION =";:PRINTZ1
5200 PRINT"NET EMPLOYMENT EARNINGS IS ";:PRINTL2::GOSUB8316
5205 L3=L1+I1-L2
5210 L4=L2
5215 PRINT "[147]O.A.S.":GOSUB8040:INPUT"";I2
5220 PRINT "[147]C.P.P.":GOSUB8050:INPUT"";L5
5225 PRINT "[147]OTHER PENSION":GOSUB8060:INPUT"";I3
5230 PRINT "[147]TAXABLE FAMILY ALLOWANCE":GOSUB8070
5232 INPUT"";I4
5235 PRINT "[147]UIC BENEFITS":GOSUB8080:INPUT"";L6
5240 REM:PRINT"[147]TAXABLE DIVIDENDS FROM CANADIAN SOURCES":GOSUB8090
5242 REM:INPUT"";J2:GOSUB3011
5250 PRINT"[147]INTEREST AND OTHER INVESTMENT INCOME":GOSUB8100
5252 INPUT"";I5
5255 PRINT"[147]ALIMONY OR SEPARATION ALLOWANCE INCOME"
5256 INPUT"";L7
5260 PRINT "[147]OTHER INCOME ":GOSUB8110
5261 INPUT"PRESS EITHER Y[146] OR N[146]";A$
5263 IFA$="N"THENGOTO5270
5264 INPUT"AMOUNT ";I6
5265 INPUT"TYPE ";IW$
5270 I=I2+L5+I3+I4+L6+I5+I6+L4+J2+L7
5275 PRINT"[147]TOTAL INCOME = ";:PRINTI:PRINT"[154]":GOSUB8316
5280 GOSUB8120
5282 GOSUB8316
5285 PRINT"[147]":!HUE(2,2,1)
5287 PRINT"[147]CPP CONTRIBUTIONS":GOSUB8200
5288 INPUT"";M1:GOTO8700
5289 INPUT"";M1:GOTO5316:REM:GOTO7800
5290 IF I1>23400THENC1=23400
5291 IFI1=<23400 THENC1=I1
5292 C2=C1:IFC2<0THENC2=0:REM ADD 1986 EQUIV TO 'C2=C1-2300' AS 1ST STMNT
5293 G3=C2*.018:G3=INT(G3*100+.5)/100
5294 IFG3>M1THENG3=M1
5295 IFG3>419.4THENG3=419.4
5296 REM:PRINT"[147]YOUR CPP CONTRIBUTION SHOULD BE ";G3:GOSUB3012
5300 B3=M1-G3
5305 REM:PRINT"RIGHT NOW, AT LINE 202 ENTER ";G3
5306 B3=INT(B3*100+.5)/100
5307 IFB3<>0THENPRINT"AND GO TO LINE 453 ON PAGE 4 AND ENTER ";B3
5316 GOSUB8316
5320 PRINT"[147]UIC CONTRIBUTIONS":GOSUB8210
5321 INPUT"";M2:GOTO8720:REM GOTO5380
5322 GOTO7820:GOTO5380
5345 INPUT"ENTER TOTAL OF (BOX H) ON ALL T4'S ";Q5
5350 Q6=Q5*.0235:Q6=INT(Q6*100+.5)/100
5355 IF Q6=>M2 THEN Q9=M2
5360 IF Q6<M2 THEN Q9=Q6
5365 IF Q9>604.76THENQ9=604.76
5370 IFQ9<M2 THEN B4=M2-Q9
5377 PRINT"[147]RIGHT NOW, AT LINE 204 ENTER ";Q9
5378 B4=INT(B4*100+.5)/100:IFB4<>0THENPRINT"AND ON LINE 454 OF PAGE 4 ENTER ";B4
5379 GOSUB8316
5380 PRINT"[147]REGISTERED PENSION PLAN CONTRIBUTIONS":GOSUB8230
5381 INPUT"";M3
5390 PRINT"[147]RRSP CONTRIBUTIONS ":GOSUB8240:INPUT"";S1
5391 GOSUB3011
5395 PRINT:PRINT"[147]ANNUAL UNION OR PROFESSIONAL DUES"
5400 INPUT"(ATTACH RECEIPTS)";M4
5405 PRINT:PRINT"[147]TUITION FEES - ONLY CLAIMED BY STUDENTS"
5410 INPUT"(ATTACH RECEIPTS)";M5
5415 PRINT"[147]CHILD CARE EXPENSES ":GOSUB8250:INPUT"";M6
5416 GOSUB3011
5417 GOSUB7600
5420 PRINT"[147]OTHER DEDUCTIONS ":GOSUB3011:GOSUB8280
5425 GOSUB7580
5430 INPUTA$:IFA$="N"THENGOTO5440
5435 GOSUB7020
5440 M=G3+Q9+M3+M4+M5+M6+M7+M8+M9+S1+S6+S2+S3+S4
5445 PRINT"[147]TOTAL DEDUCTIONS (SO FAR) = ";:PRINTM:GOSUB3011
5450 J=I-M
5455 PRINT"NET INCOME = ";:PRINTJ
5460 GOSUB8316
5465 IFJ>38610 AND L6>0 THENGOSUB6975
5470 B3=M1-G3
5475 B4=M2-Q9
5480 PRINT"[147] PERSONAL EXEMPTIONS"
5481 GOSUB8300:GOSUB8316
5482 INPUT"IN WHAT YEAR WERE YOU BORN";A1
5485 !HUE(12,12,13):PRINT"[147]BASIC PERSONAL EXEMPTION IS 4180":GOSUB8316
5486 N1=4180
5490 IFA1=<1921THENN9=2610
5491 IFN9=2610THENPRINT"[147]YOU GET AN AGE DEDUCTION OF 2610":GOSUB8316
5495 IFA1>1921THENN9=0
5500 PRINT"[147]MARRIED ON DEC 31 1986 AND SUPPORTED"
5505 INPUT"SPOUSE IN 1986? 'Y' OR 'N'";A$
5510 N3=0
5515 IF A$="Y" THEN GOSUB 6500
5520 PRINT"[147]EXEMPTION FOR WHOLLY DEPENDENT CHILDREN":GOSUB8260
5521 PRINT"EACH CHILD REQUIRES ONE LINE ON THE BOTTOM OF PAGE THREE"
5525 PRINT:PRINT"NUMBER OF CHILDREN BORN IN 1969 OR LATER"
5530 INPUT"WHOSE INCOME DID NOT EXCEED $2760.00";N4:PRINT"[147]"
5531 IFN4=>1THENPRINT"[147]ENTER ";N4;:PRINT" LINES, EACH CLAIMING $710.00"::GOSUB8316
5532 GOSUB8260
5535 PRINT"NUMBER OF CHILDREN WHO WERE BORN IN 1968"
5537 PRINT"OR EARLIER[146] WHOSE INCOME DID NOT EXCEED"
5540 INPUT" $1340.00";N5
5541 IFN5=>1THENPRINT"[147]ENTER ";N5;:PRINT" LINES, EACH CLAIMING $1420.00"::GOSUB8316
5545 PRINT"[147]ANY OTHERS?":GOSUB8270
5550 GOSUB7580
5555 INPUT"";A$:IFA$="Y"THENGOSUB6595READY.
5560 N6=(N4*710)+(N5*1420)+E3+E6+E9
5565 PRINT"DEPENDENT CHILDREN DEDUCTION = ";:PRINTN6:GOSUB8316
5570 N8=N1+N9+N6+N3
5575 PRINT"[147]TOTAL PERSONAL EXEMPTIONS = ";:PRINTN8:GOSUB8316
5580 K=J-N8
5585 PRINT"[147]NET INC MINUS PERS EXEM ";:PRINTK:GOSUB8316
5590 PRINT"[147] INTEREST INCOME DEDUCTION"
5595 INPUT"FROM SCHED 4 ";D1
5600 IF D1>1000THENPRINT"1000 IS MAXIMUM":GOSUB3012:GOTO5590
5605 IF D1>(J2+I5)THENPRINT"[147]CANT BE > LINES 120 + 121":GOSUB3012:GOTO5590
5610 PRINT"YOUR INTEREST INCOME DEDUCTION IS ";:PRINTD1:GOSUB3013
5615 INPUT"[147]PENSION INCOME DEDUCTION";D2
5620 IF D2>I3ORD2>1000THENPRINT"YOU'RE CLAIMING TOO MUCH":GOSUB3013:GOTO5615
5625 PRINT"[147]MEDICAL DEDUCTION - REQUIRES COMPLETED"
5630 PRINT"SCHED 9 & ALL RECEIPTS"
5631 J5=INT(J*100+.5)/100:J6=J5*.03:J6=INT(J6*100+.5)/100
5632 PRINT"YOU MAY NOT CLAIM UNLESS YOUR MEDICAL"
5633 PRINT"BILL EXCEEDS ";J6:PRINT" Y[146] OR N[146]?"
5635 GOSUB7580
5640 INPUTA$:IFA$="N"THENGOTO5665
5645 INPUT"TOTAL AMOUNT OF MEDICAL BILLS";R8
5650 R7=.03*J:R7=INT(R7*100+.5)/100:D6=R8-R7
5651 D6=D6*100:D6=INT(D6+.5):D6=D6/100
5655 IFD6=<0THEND6=0
5660 PRINT"YOUR MEDICAL DEDUCTION IS ";:PRINTD6:GOSUB8316
5665 INPUT"[147]CHARITABLE DONATION DEDUCTION";D5
5670 INPUT"[147]BLIND OR DISABILITY DEDUCTION";D3
5675 INPUT"[147]EDUCATION DEDUCTION";D4
5680 PRINT"[147]DEDUCTIONS TRANSFERRED FROM SPOUSE"
5685 INPUT"ATTACH COMPLETED SCHED 2 ";D7
5690 D8=D1+D2+D3+D4+D5+D6+D7+F2
5695 K2=K-D8
5700 IF K2<0THENK2=0
5705 IF K2>30000 GOTO8975
5710 IFJ2>0THENGOTO6750
5715 PRINT"[147]CHECK TAX TABLE TO SEE HOW MUCH "
5720 PRINT"FEDERAL TAX IS PAYABLE ON ";:PRINTK2
5725 INPUT"ENTER THAT AMOUNT HERE";T1
5726 PRINT"[147]CHECK TAX TABLE TO SEE HOW MUCH "
5727 PRINT"INDIVIDUAL SURTAX IS PAYABLE ON";:PRINTK2
5728 INPUT"ENTER THAT AMOUNT HERE";T2
5730 T3=T1+T2:PRINT"NET FEDERAL TAX PAYABLE ";:PRINTT3
5735 PRINT"CHECK TAX TABLE TO SEE HOW MUCH "
5740 PRINT"PROVINCIAL TAX IS PAYABLE ON ";:PRINTK2
5745 INPUT"ENTER THAT AMOUNT HERE";T4
5750 T8=T4+T3:PRINT"[147]TOTAL PAYABLE IS ";:PRINTT8
5755 INPUT"TOTAL TAX DEDUCTED PER INFO SLIPS ";B1
5760 PRINT"[147]ELIGIBLE FOR ONTARIO TAX CREDITS?"
5765 GOSUB7580
5770 INPUTA$:IFA$="Y"THENGOTO7080
5771 PRINT"[147]ARE YOU ELIGIBLE FOR CHILD TAX CREDIT?"
5772 PRINT"IF SO YOU MUST COMPLETE A SCHEDULE 10"
5773 INPUT"Y[146] OR N[146]";A$
5774 IFA$="Y"THENGOTO8480
5775 INPUT"[147]CPP OVERPAYMENT";B3
5785 INPUT"[147]UIC OVERPAYMENT";B4
5795 INPUT"[147]AMOUNTS PAID BY INSTALMENTS ";B5
5805 IFJ<20000THENGOTO7420
5810 B8=B1+B2+B3+B4+B5+B6+SH:PRINT"TOTAL CREDITS ";B8
5815 F1=T8-B8
5816 F1=INT(F1*100+.5)/100
5820 IF F1=>1THEN PRINT" YOU OWE ";:PRINTF1"
5825 [139] F1[177][171]1[175]F1[179]1[167] [153]"NO PAYMENT OR REFUND REQUIRED"
5830 [139] F1[178][179][171]1 [167] [153]"WAITYOU GET A REFUND OF ";:[153]F1[172][171]1:[153]"WAIT"
5833 [141]8316
5835 [153]"LOAD DO YOU WANT A PAGE COPY WAIT"
5840 [141]7580
5845 [133]A$:[139]A$[178]"N"[167]X[178]480:[153]"LOAD":[137]5890
5850 X[178]1
5855 [159]4,4:[157]4
5860 [153]AA$,AI$
5865 [153]AB$,AC$
5870 [153]AD$,AE$
5875 [153]AF$
5880 [153]AG$
5885 [153]AH$
5890 [139]I1[179][177]0[167][153]"LINE 101 IS ";:[153]I1:X[178]X[170]1
5895 [139]X[178][177]495[167][141]7365
5900 [139]L1[179][177]0[167][153]"LINE 104 IS ";:[153]L1;:[153]" ";IT$,IU$,IV$:X[178]X[170]1
5905 [139]X[178][177]495[167][141]7365
5910 [139]Z2[179][177]0[167][153]"LINE 105 IS ";:[153]Z2:X[178]X[170]1
5915 [139]X[178][177]495[167][141]7365
5920 [139]Z1[179][177]0[167][153]"LINE 108 IS ";:[153]Z1:X[178]X[170]1
5925 [139]X[178][177]495[167][141]7365
5930 [139]L2[179][177]0[167][153]"LINE 111 IS ";:[153]L2:X[178]X[170]1
5935 [139]X[178][177]495[167][141]7365
5940 [139]I2[179][177]0[167][153]"LINE 113 IS ";:[153]I2:X[178]X[170]1
5945 [139]X[178][177]495[167][141]7365
5950 [139]L5[179][177]0[167][153]"LINE 114 IS ";:[153]L5:X[178]X[170]1
5955 [139]X[178][177]495[167][141]7365
5960 [139]I3[179][177]0[167][153]"LINE 115 IS ";:[153]I3:X[178]X[170]1
5965 [139]X[178][177]495[167][141]7365
5970 [139]I4[179][177]0[167][153]"LINE 118 IS ";:[153]I4:X[178]X[170]1
5975 [139]X[178][177]495[167][141]7365
5980 [139]L6[179][177]0[167][153]"LINE 119 IS ";:[153]L6:X[178]X[170]1
5985 [139]X[178][177]495[167][141]7365
5990 [139]J2[179][177]0[167][153]"LINE 120 IS ";:[153]J2:X[178]X[170]1
5995 [139]X[178][177]495[167][141]7365
6000 [139]I5[179][177]0[167][153]"LINE 121 IS ";:[153]I5:X[178]X[170]1
6005 [139]X[178][177]495[167][141]7365
6010 [139]I6[179][177]0[167][153]"LINE 130 IS ";:[153]I6;:[153]" ";IW$:X[178]X[170]1
6015 [139]X[178][177]495[167][141]7365
6020 [139]I[179][177]0[167][153]"LINES 150 & 200 ARE ";:[153]I:X[178]X[170]1
6025 [139]X[178][177]495[167][141]7365
6030 [139]G3[179][177]0[167][153]"LINE 202 IS ";:[153]G3:X[178]X[170]1
6035 [139]X[178][177]495[167][141]7365
6040 [139]Q9[179][177]0[167][153]"LINE 204 IS ";:[153]Q9:X[178]X[170]1
6045 [139]X[178][177]495[167][141]7365
6050 [139]M3[179][177]0[167][153]"LINE 207 IS ";:[153]M3:X[178]X[170]1
6055 [139]X[178][177]495[167][141]7365
6060 [139]S1[179][177]0[167][153]"LINE 208 IS ";:[153]S1:X[178]X[170]1
6065 [139]X[178][177]495[167][141]7365
6075 [139]X[178][177]495[167][141]7365
6080 [139]M4[179][177]0[167][153]"LINE 212 IS ";:[153]M4:X[178]X[170]1
6085 [139]X[178][177]495[167][141]7365
6090 [139]M5[179][177]0[167][153]"LINE 213 IS ";:[153]M5:X[178]X[170]1
6095 [139]X[178][177]495[167][141]7365
6100 [139]M6[179][177]0[167][153]"LINE 214 IS ";:[153]M6;:[153]"INCLUDE SCHED 5"
6101 X[178]X[170]1:[139]X[178][177]495[167][141]7365
6102 [139]M7[179][177]0[167][153]"LINE 219 IS";:[153]M7:X[178]X[170]1:[139]X[178][177]495[167][141]7365
6103 [139]M8[179][177]0[167][153]"LINE 220 IS";:[153]M8:X[178]X[170]1:[139]X[178][177]495[167][141]7365
6105 [139]M9[179][177]0[167][153]"LINE 221 IS";:[153]M9:X[178]X[170]1:[139]X[178][177]495[167][141]7365
6110 [139]S2[179][177]0[167][153]"LINE 222 IS ";:[153]S2;:[153]SA$"WAIT":X[178]X[170]1
6115 [139]X[178][177]495[167][141]7365
6120 [139]S3[179][177]0[167][153]"LINE 222 IS ";:[153]S3;:[153]SB$"WAIT":X[178]X[170]1
6125 [139]X[178][177]495[167][141]7365
6130 [139]S4[179][177]0[167][153]"LINE 222 IS ";:[153]S4;:[153]SC$"WAIT":X[178]X[170]1
6135 [139]X[178][177]495[167][141]7365
6140 [139]M[179][177]0[167][153]"LINE 223 IS ";:[153]M:X[178]X[170]1
6145 [139]X[178][177]495[167][141]7365
6150 [139]J[179][177]0[167][153]"LINE 224 IS ";:[153]J:X[178]X[170]1
6155 [139]X[178][177]495[167][141]7365
6160 [139]N9[179][177]0[167][153]"LINE 229 IS ";:[153]N9:X[178]X[170]1
6165 [139]X[178][177]495[167][141]7365
6170 [139]N3[179][177]0[167][153]"LINE 230 IS ";:[153]N3:X[178]X[170]1
6175 [139]X[178][177]495[167][141]7365
6180 [139]N6[179][177]0[167][153]"LINE 231 IS ";:[153]N6:X[178]X[170]1
6185 [139]X[178][177]495[167][141]7365
6190 [139]N8[179][177]0[167][153]"LINE 235 IS ";:[153]N8:X[178]X[170]1
6195 [139]X[178][177]495[167][141]7365
6200 [139]K[179][177]0[167][153]"LINE 236 IS ";:[153]K:X[178]X[170]1
6205 [139]X[178][177]495[167][141]7365
6210 [139]D1[179][177]0[167][153]"LINE 238 IS ";:[153]D1:X[178]X[170]1
6215 [139]X[178][177]495[167][141]7365
6220 [139]D2[179][177]0[167][153]"LINE 240 IS ";:[153]D2:X[178]X[170]1
6225 [139]X[178][177]495[167][141]7365
6230 [139]D6[179][177]0[167][153]"LINE 241 IS ";:[153]R8;:[153]"- ";:[153]R7
6235 X[178]X[170]1:[139]X[178][177]495[167][141]7365
6240 [139]D6[179][177]0[167][153]"LINE 242 IS ";:[153]D6:X[178]X[170]1
6245 [139]X[178][177]495[167][141]7365
6250 [139]D5[179][177]0[167][153]"LINE 243 IS ";:[153]D5;:[153]" ATTACH RECEIPTS":X[178]X[170]1
6255 [139]X[178][177]495[167][141]7365
6260 [139]D3[179][177]0[167][153]"LINE 246 IS ";:[153]D3:X[178]X[170]1
6265 [139]X[178][177]495[167][141]7365
6270 [139]D4[179][177]0[167][153]"LINE 247 IS ";:[153]D4;:[153]" ATTACH FORM T2202 OR T2202A"
6275 [139]F2[179][177]0[167][153]"LINE 250 IS ";:[153]F2:X[178]X[170]1
6280 [139]X[178][177]495[167][141]7365
6285 [139]D8[179][177]0[167][153]"LINE 255 IS ";:[153]D8:X[178]X[170]1
6290 [139]X[178][177]495[167][141]7365
6295 [139]K2[179][177]0[167][153]"LINES 260 & 400 ARE ";:[153]K2:X[178]X[170]1
6300 [139]X[178][177]495[167][141]7365
6305 [139]T1[179][177]0[167][153]"LINE 402 IS ";:[153]T1:X[178]X[170]1
6310 [139]X[178][177]495[167][141]7365
6315 [139]X[178][177]495[167][141]7365
6320 [139]V8[179][177]0[167][153]"LINE 406 IS ";:[153]V8:X[178]X[170]1
6325 [139]X[178][177]495[167][141]7365
6330 [139]T1[179][177]0[167][153]"LINE 406 IS ";:[153]T1:X[178]X[170]1
6332 [139]X[178][177]495[167][141]7365
6333 [139]T2[179][177]0[167][153]"LINE 419 IS ";:[153]T2:X[178]X[170]1
6335 [139]X[178][177]495[167][141]7365
6340 [139]T3[179][177]0[167][153]"LINE 420 IS ";:[153]T3:X[178]X[170]1
6345 [139]X[178][177]495[167][141]7365
6350 [139]T4[179][177]0[167][153]"LINE 423 IS ";:[153]T4:X[178]X[170]1
6355 [139]X[178][177]495[167][141]7365
6360 [139]W7[179][177]0[167][153]"LINE 423 IS ";:[153]W7:X[178]X[170]1
6365 [139]X[178][177]495[167][141]7365
6370 [139]F2[179][177]0[167][153]"LINE 433 IS ";:[153]F2:X[178]X[170]1
6375 [139]X[178][177]495[167][141]7365
6380 [139]T8[179][177]0[167][153]"LINE 435 IS ";:[153]T8:X[178]X[170]1
6385 [139]X[178][177]495[167][141]7365
6390 [139]W6[179][177]0[167][153]"LINE 435 IS ";:[153]W6:X[178]X[170]1
6395 [139]X[178][177]495[167][141]7365
6400 [139]B1[179][177]0[167][153]"LINE 440 IS ";:[153]B1:X[178]X[170]1
6405 [139]X[178][177]495[167][141]7365
6410 [139]B2[179][177]0[167][153]"LINE 448 IS ";:[153]B2:X[178]X[170]1
6415 [139]X[178][177]495[167][141]7365
6420 [139]B6[179][177]0[167][153]"LINE 450 IS ";:[153]B6:X[178]X[170]1
6422 [139]SH[179][177]0[167][153]"LINE 451 IS ";SH:X[178]X[170]1
6425 [139]X[178][177]495[167][141]7365
6430 [139]B3[177]0[167][153]"LINE 453 IS ";:[153]B3;
6435 [143]:IFB3>0THENPRINT" LINE 202 AMENDED TO AGREE":X=X+1
6440 [139]X[178][177]495[167][141]7365
6445 [139]B4[177]0[167][153]"LINE 454 IS ";:[153]B4;
6450 [143]:IFB4>0THENPRINT" LINE 204 AMENDED TO AGREE":X=X+1
6455 [139]X[178][177]495[167][141]7365
6460 [139]B5[179][177]0[167][153]"LINE 455 IS ";:[153]B5:X[178]X[170]1
6465 [139]X[178][177]495[167][141]7365
6470 [139]B8[179][177]0[167][153]"LINE 463 IS ";:[153]B8:X[178]X[170]1
6475 [139]X[178][177]495[167][141]7365
6480 [139]F1[179]0[167][153]"LINE 464 IS ";[171]1[172]F1
6485 [139] F1[177]1[167][153]"LINE 465 IS ";:[153]F1
6490 [139] F1[178][179].99[175]F1[178][177][171].99[167][153]"NO REFUND OR RETURN REQUIRED"
6492 [139]A$[178]"Y"[167][152]4:[160]4
6493 [141]8316
6495 [137]8800
6500 [133]"LOADENTER SPOUSE'S INCOME FOR 1986";N3
6505 N7[178]N3:[139] N3[178][179]520 [167] N3[178]3660:[137]6520
6510 [139] N3[177]520 [175] N3[179]4180[167]N3[178]4180[171]N3
6515 [139] N3[178][177]4180[167]N3[178]0
6520 [153]"LOADMARRIED EXEMPTION = ";N3
6525 [141]8316:[142]
6530 [139]I1[177]23400[167]C1[178]23400
6535 [139]I1[178][179]23400[167]C1[178]I1
6540 C2[178]C1[171]2300:[139]C2[179]0[167]C2[178]0
6545 G3[178]C2[172].018
6550 [139] G3[177]M1[167]G3[178]M1
6555 [153]"YOUR CPP CONTRIB SHOULD BE ";G3
6560 B3[178]M1[171]G3
6565 [137]5320
6570 [139] C1[179]S8 [167] G1[178]C1
6575 G3[178](G1[171]C2)[172].018
6580 [139] G3[177]419.4 [167] G3[178]419.4
6585 [153]"CORRECT PAYMENT FOR CPP IS ";G3
6590 [142]
6595 [133]"LOADCHILD'S YEAR OF BIRTH";E1
6600 [133]"CHILD'S NET INCOME";E2
6605 [139]E1[177]1968[167][139]E2[178][179]2760[167]L8[178]44:[137]7700
6610 [139]E1[179]1969[167][139]E2[178][179]1340[167]L8[178]33:[137]7700
6615 [139] E1[177]1968 [167]E3[178]710[171](.5[172](E2[171]2760))
6620 [139]E1[179]1969[167]E3[178]1420[171](.5[172](E2[171]1340))
6625 [139]E3[179]0[167]E3[178]0
6626 E3[178][181](E3[172]100[170].5)[173]100
6630 [153]"DEDUCTION IS ";E3
6635 [153]"ANY OTHERS?"
6640 [141]7580
6645 [133]A$:[139]A$[178]"N"[167][142]
6650 [133]"LOADCHILD'S YEAR OF BIRTH";E4
6655 [133]"CHILD'S NET INCOME";E5
6660 [139]E4[177]1968[167][139]E5[178][179]2760[167]L8[178]44:[137]7700
6665 [139]E4[179]1969[167][139]E5[178][179]1340[167]L8[178]33:[137]7700
6670 [139] E4[177]1968 [167]E6[178]710[171](.5[172](E5[171]2760))
6675 [139]E4[179]1969[167]E6[178]1420[171](.5[172](E5[171]1340))
6680 [139]E6[179]0[167]E6[178]0
6681 E6[178][181](E6[172]100[170].5)[173]100
6685 [153]"DEDUCTION IS ";E6
6690 [153]"ANY OTHERS?"
6695 [141]7580
6700 [133]A$:[139]A$[178]"N"[167][142]
6705 [133]"LOADCHILD'S YEAR OF BIRTH";E7
6710 [133]"CHILD'S NET INCOME";E8
6715 [139]E7[177]1968[167][139]E8[178][179]2760[167]L8[178]44:[137]7700
6720 [139]E7[179]1969[167][139]E8[178][179]1340[167]L8[178]33:[137]7700
6725 [139] E7[177]1968 [167]E9[178]710[171](.5[172](E8[171]2760))
6730 [139]E7[179]1969[167]E9[178]1420[171](.5[172](E8[171]1340))
6735 [139] E9[179]0[167]E9[178]0
6736 E9[178][181](E9[172]100[170].5)[173]100
6740 [153]"DEDUCTION IS ";E9
6745 [142]
6750 :
6755 [139] K2[178][179]1305 [167] V1[178].06[172]K2
6760 [139] K2[178][177]1305 [175] K2[179]2611[167]V1[178]78[170](.16[172](K2[171]1305))
6765 [139] K2[178][177]2611 [175] K2[179]5221[167]V1[178]287[170](.17[172](K2[171]2611))
6770 [139] K2[178][177]5221 [175] K2[179]7832[167]V1[178]731[170](.18[172](K2[171]5221))
6775 [139] K2[178][177]7832 [175] K2[179]13054[167]V1[178]1201[170](.19[172](K2[171]7832))
6780 [139] K2[178][177]13054 [175] K2[179]18275[167]V1[178]2193[170](.20[172](K2[171]13054))
6785 [139] K2[178][177]18275 [175] K2[179]23496[167]V1[178]3237[170](.23[172](K2[171]18275))
6790 [139] K2[178][177]23496 [175] K2[179]36550[167]V1[178]4438[170](.25[172](K2[171]23496))
6795 [139] K2[178][177]36550 [175] K2[179]62652[167]V1[178]7702[170](.30[172](K2[171]36550))
6800 [139] K2[178][177]62657 [167] V1[178]15534[170].34[172](K2[171]59424)
6805 [153]"TOTAL FEDERAL TAX IS ";V1
6810 [133]"FEDERAL DIVIDEND TAX CREDIT";V2
6815 [139] V2[177]V1[167]V2[178]V1
6820 V[178]V1[171]V2:[153]"BASIC FEDERAL TAX IS ";V
6825 [139] V[179]100[167]V3[178]V
6830 [139] V[178][177]100 [167] V3[178]100
6835 [153]"YOU'RE ALLOWED A REDUCTION OF ";V3
6840 V5[178]V3
6850 [153]"FEDERAL TAX REDUCTION IS ";V5
6855 [139]V[177]6000[167]V6[178](V[171]6000)[172].1
6860 V7[178]V5[171]V6:[139]V7[178][179]0[167]V7[178]0
6865 [153]"NET FEDERAL TAX REDUCTION = ";V7
6870 V8[178]V[171]V7:[153]"FEDERAL TAX ";V8:[153]"WAIT"
6875 W1[178]V[172].50
6880 [153]"BASIC ONTARIO TAX = ";W1
6885 W2[178](W1[171]110.8)[172].05
6890 [153]"ONT SOCIAL SERVICES MAINT TAX = ";W2
6895 W[178]W1[170]W2:[153]"ONTARIO TAX IS ";W
6900 [139]K2[179][178]2026[167]W8[178]W
6905 [139]K2[177]2026[175]K2[179]2218[167]W8[178](2218[171]K2)[173]2
6910 W7[178]W[171]W8:[153]"ONTARIO TAX PAYABLE IS ";W7:[153]"WAIT"
6915 W6[178]W7[170]V8[170]F2:[153]"TOTAL TAX PAYABLE IS ";W6
6920 [133]"TOTAL TAX DEDUCTED PER INFO SLIPS ";B1
6925 [153]"ELIGIBLE FOR ONTARIO TAX CREDITS?"
6930 [141]7580
6935 [133]A$:[139]A$[178]"Y"[167][137]7210
6940 [139] B3[177]0[167][153]"YOU OVERPAID CPP BY ";B3
6945 [139]B4[177]0[167][153]"YOU OVERPAID UIC BY ";B4
6950 [133]"AMOUNTS PAID BY INSTALMENTS ";B5
6955 [133] "CHILD TAX CREDIT ";B6
6960 B8[178]B1[170]B2[170]B3[170]B4[170]B5[170]B6:[153]"TOTAL CREDITS = ";B8
6965 F1 [178]W6[171]B8
6970 [137]5820
6975 [153]"LOADYOU MUST COMPLETE UIC REPAYMENT PAYABLE"
6980 [153]" ON PAGE 3 OF YOUR T1"
6985 [139](J[171]38610)[172].3[179].3[172]L6 [167] F2[178](J[171]38610)[172].3
6990 [139].3[172]L6[179](J[171]38610)[172].3 [167] F2[178].3[172]L6
6992 F2[178][181](F2[172]100[170].5)[173]100
6995 [139] F2[177]0[167][153]"LINES 250WAIT AND 433WAIT ARE";F2
7000 [153]"ANY REPAYMENT ALREADY MADE SHOULD BE"
7005 [153]"SUBTRACTED FROM AMOUNT ON LINE 119WAIT"
7010 [141]8316:[142]
7015 [137]5395
7020 [133]"TYPE OF DEDUCTION";SA$
7025 [133]"AMOUNT";S2
7030 [153]"LOADOTHER DEDUCTIONS "
7035 [141]7580
7040 [133]A$:[139]A$[178]"N"[167][137]5440
7045 [133]"TYPE OF DEDUCTION";SB$
7050 [133]"AMOUNT";S3
7055 [153]"LOADOTHER DEDUCTIONS "
7060 [141]7580
7065 [133]A$:[139]A$[178]"N"[167][137]5440
7070 [133]"TYPE OF DEDUCTION";SC$
7075 [133]"AMOUNT";S4
7076 [142]
7080 [133]"LOADRENT PAID IN 1985 ";O1
7085 O2[178]O1[173]5
7090 [133]"PROPERTY TAX PAID IN 1985 ";O3
7095 [133]"COLLEGE RESIDENCE ";O4:[139]O4[177]25[167]O4[178]25
7100 O5[178]O2[170]O3[170]O4
7105 [139] O5[178][177]180[167]O6[178]180
7110 [139] O5[179]180[167]O6[178]O5
7114 O7[178]O6[170](O5[173]10):O7[178][181](O7[172]100[170].5)[173]100:[153]O7
7120 O8[178]O7[170](N8[172].01)
7121 [143] O8=O8*100:O8=INT(O8+.5):O8=O8/100
7122 O8[178][181](O8[170].5)[173]100
7125 [139] K2[178][179]2026[167]O9[178]0:[137]7135
7130 O9[178]K2[172].02
7132 O9[178][181](O9[172]100[170].5)[173]100
7135 B2[178]O8[171]O9:[139]B2[179]0[167]B2[178]0
7140 [139] O2[177]0[167][153]"LINE 555 IS ";O2
7145 [139] O3[177]0[167][153]"LINE 556 IS ";O3
7150 [139] O4[177]0[167][153]"LINE 558 IS ";O4
7155 [139] O5[177]0[167][153]"LINE 559 IS ";O5
7160 [139] O6[177]0[167][153]" ";O6
7165 [139] O5[177]0[167][153]" ";O5[173]10
7170 [139] O7[177]0[167][153]"TOTAL PROPERTY TAX CREDIT IS ";O7
7174 P3[178]N8[173]100:P3[178][181](P3[172]100[170].5)[173]100
7175 [139] O7[177]0[167][153]"SALES TAX CREDIT = ";P3
7176 P4[178]P3[170]O7
7180 [139] P4[177]0[167][153]"(A) = ";P4
7185 [139] O9[177]0[167][153]"(B) = ";O9
7186 B2[178]P4[171]O9:[139]B2[179]0[167]B2[178]0
7187 [139]B2[177]500[167]B2[178]500
7189 [139]B2[179]0[167]B2[178]0
7190 [153] "ONTARIO TAX CREDIT = ";B2"WAIT"
7191 [153]"ENTER THIS NUMBER ON LINE 448"
7192 [141]8316:[137]5771
7205 [153]"LOAD":[137]7140
7210 [133]"RENT PAID IN 1986 ";O1
7215 O2[178]O1[173]5
7220 [133]"PROPERTY TAX PAID IN 1986 ";O3
7225 [133]"COLLEGE RESIDENCE ";O4:[139]O4[177]25[167]O4[178]25
7230 O5[178]O2[170]O3[170]O4
7235 [139] O5[178][177]180[167]O6[178]180
7240 [139] O5[179]180[167]O6[178]O5
7245 O7[178]O6[170](O5[172].1)
7246 [153]O7:[129]X[178]1[164]5000:[130]
7250 O8[178]O7[170](N8[172].01)
7255 [139] K2[178][179]2026[167]O9[178]0:[137]7135
7260 O9[178]K2[172].02
7265 B2[178]O8[171]O9:[139]B2[179]0[167]B2[178]0
7270 [139] O2[177]0[167][153]"LINE 555 IS ";O2
7275 [139] O3[177]0[167][153]"LINE 556 IS ";O3
7280 [139] O4[177]0[167][153]"LINE 558 IS ";O4
7285 [139] O5[177]0[167][153]"LINE 559 IS ";O5
7290 [139] O6[177]0[167][153]" ";O6
7295 [139] O5[177]0[167][153]" ";.1[172]O5
7300 [139] O7[177]0[167][153]"TOTAL PROPERTY TAX CREDIT IS ";O7"CONT"
7305 [139] O7[177]0[167][153]"SALES TAX CREDIT = ";.01[172]N8
7310 [139] O8[177]0[167][153]"(A) = ";O8
7315 [139] O9[177]0[167][153]"(B) = ";O9
7320 [139] B2[177]0[167][153] "ONTARIO TAX CREDIT = ";B2"WAIT"
7325 [153]"READY TO CONTINUE":[141]7580
7330 [133]A$:[139]A$[178]"Y"[167][137]6940
7335 [153]"LOAD":[137]7270
7340 [141]7580
7345 [133]A$:[139]A$[178]"Y"[167]X[178]480:[142]
7350 [178]2855
7355 VLU[178]VLU[170](VLU[172]PR)
7360 [128]
7365 X[178]475:[133]"HIT RETURNWAIT TO CONTINUE";A$
7370 [153]"LOAD":[142]
7375 [133]B$:[139] B$[179][177]""[167]7375
7380 [133]B$:[139]B$[178]""[167]7380
7385 [153]""
7390 [153][199](147)
7395 [153]:[142]
7400 [128]
7405 [153]"RUN/STOP & RESTORE KEY END PROGRAM"
7410 [133]"ANY OTHER KEY REPEATS LINE NO. PRINTOUT";A$
7415 [137]5835
7420 [153]"LOADYOU MAY QUALIFY FOR THE FEDERAL SALES TAX CREDIT."
7425 [133]"DO YOU WANT TO TRY FOR IT? YWAIT OR NWAIT";A$
7430 [139] A$[178]"N"[167][137]5810
7440 Y6[178]J[170]N7
7445 [139]Y6[177]20000[167][153]"SORRY, COMBINED INCOME TOO HIGH":[129]X[178]1[164]5000:[130]:[137]5810
7450 [153]"LOADWHAT IS THE TOTAL OF THE FOLLOWING "
7455 [153]"ITEMS RECEIVED BY BOTH YOU AND YOUR"
7460 [153]"SPOUSE":[153]"SOCIAL ASSISTANCE PAYMENTS,"
7465 [153]"GUARANTEED INCOME SUPPLEMENT"
7470 [153]"SPOUSE'S ALLOWANCE"
7475 [133]"WORKER'S COMPENSATION PAYMENTS";Y3
7480 Y5[178]Y6[170]Y3
7485 [153]"LOADPLEASE NOTE THAT A MARRIED COUPLE"
7490 [153]"MAY ONLY MAKE ONE CLAIM BETWEEN THEM"
7495 [153]"YOU ARE NOW MAKING THE CLAIM FOR"
7500 [153]"YOUR FAMILY."
7501 SA[178]50
7505 [153]"YOUR CLAIM IS FOR ";SA
7510 [133]"ARE YOU CLAIMING FOR YOUR SPOUSE YWAIT OR NWAIT";A$
7515 [139] A$[178]"Y"[167]SB[178]50:[137]7530
7525 [143]
7530 [153]"CREDIT FOR QUALIFIED RELATIONS"
7532 [133]"HOW MANY RELATIVES ARE YOU CLAIMING FOR";H3:SC[178]H3[172]25
7535 SD[178]SC[170]SB[170]SA:[153]"LOADON SCHED 11, LINE 1 IS ";SA:[153]"LINE 2 IS ";SB
7536 [153]"LINE 582/3 IS ";H3;:[153]"/";:[153]SC:[153]"LINE 4 IS ";SD
7537 [153]"LINE 5 IS ";J:[153]"LINE 6 IS ";N7:[153]"LINE 7 IS ";Y3:SE[178]J[170]N7[170]Y3
7538 [153]"LINE 8 IS ";SE:SF[178](SE[171]15000):[139] SF[179]0[167]SF[178]0:[153]"LINE 10 IS ";SF
7539 SG[178]SF[173]20:SG[178][181](SG[172]100[170].5)[173]100:[153]"LINE 11 IS ";SG
7540 SH[178](SD[171]SG):[139]SH[179]0[167]SH[178]0:[153]"LINE 12 = ";SH
7541 [153]"YOUR FEDERAL SALES TAX CREDIT (LINE 451 ON THE MAIN FORM) IS ";SH
7560 [141]8316:[137]5810
7565 [128]
7570 [139]F1[179]1[167][153]"LINE 464 IS ";[171]1[172]F14100
7575 [128]
7580 ![150](1,1,1,0,32,10,10):![134](21,3,32,3)
7581 W$[178]" PRESS EITHER 'Y' OR 'N' "
7583 ![159],W$:[142]
7585 ![150](0,1,1,0,32,10,10):![134](6,3,32,5)
7587 W$[178]"IF YOU HAVE SUCH INCOME TO DECLARE, PRESS THE LETTER Y - IF NOT PRESS N"
7588 ![159],W$:[142]
7589 [142]
7600 [133]"LOADMOVING EXPENSES (FROM FORM T1-M)";M7
7603 [141]3011
7610 [153]"LOADALIMONY OR SEPARATION ALLOWANCE PAID"
7611 [133]M8
7612 [141]3011
7620 [133]"LOADCARRYING CHARGES (FROM SCHED 4)";M9
7621 [141]3011:[142]
7700 [139]L8[178]44[167][153]"LOADTHAT CHILD FIT IN FIRST GROUP REQUESTED.":L8[178]0
7701 [139]L8[178]33[167][153]"LOADTHAT CHILD FIT IN SECOND GROUP REQUESTED.":L8[178]0
7703 N4[178]0:N5[178]0:N6[178]0:E1[178]0:E2[178]0:E3[178]0:E4[178]0:E5[178]0:E6[178]0:E7[178]0:E8[178]0:E9[178]0
7705 [141]8316
7706 [153]" REDO DEPENDENT CHILDREN SECTION"
7707 [141]8316
7708 [137]5520
7800 [139]M1[178][179]419.4[167]G3[178]M1
7802 [139]M1[177]419.4[167]B3[178]M1[171]419.4:G3[178]419.4
7810 [137]5296
7820 [139]M2[179][178]604.76[167]Q9[178]M2
7821 [139]M2[177]604.76[167]B4[178]M2[171]604.76:Q9[178]604.76
7830 [137]5377
8000 ![150](0,0,1,0,32,10,10):![134](13,4,18,11)
8005 W$[178]"IF YOU HELD 'X' DIFFERENT JOBS IN 1986, THEN YOU"
8006 W$[178]W$[170]" WILL HAVE 'X' T4 SLIPS. ENTER THE TOTAL OF BOX C ON ALL T4 SLIPS."
8010 ![159],W$:[142]
8015 ![150](0,0,1,0,32,10,10):![134](11,4,18,11)
8017 W$[178]"THIS INCOME MUST BE JOB RELATED, SUCH AS TIPS OR TRAINING ALLOWANCES"
8018 ![159],W$:[142]
8025 ![150](1,1,10,102,32,75,75):![134](2,4,33,7)
8027 W$[178]"TO TRANSFER WHATEVER YOU TYPE INTO THE COMPUTER, YOU MUST PRESS"
8028 W$[178]W$[170]" THE 'RETURN' KEY AFTER EACH ANSWER."
8029 ![159],W$:[141]3011
8031 ![150](0,1,10,102,32,70,70):![134](7,20,20,7)
8033 W$[178]"IF YOUR ANSWER IS 0 (ZERO), THEN YOU MAY JUST PRESS THE 'RETURN' KEY."
8034 ![159],W$:[141]3012
8035 ![150](0,1,10,102,32,70,70)![134](16,3,35,6)
8036 W$[178]"DO NOT USE THE '$' SIGN, NOR ',' (COMMAS) IN YOUR ANSWERS SINCE "
8037 W$[178]W$[170]" SYSTAX EH'DFOR "
8038 W$[178]W$[170]"WILL NOT ACCEPT THEM AS INPUTS"
8039 ![159],W$:[141]8316:[142]
8040 ![150](0,0,1,0,32,10,10):![134](10,16,22,9)
8042 W$[178]"IF YOU RECEIVED ANY INCOME IN THE FORM OF OLD AGE SECURITY PAYMENTS"
8043 W$[178]W$[170]" THEN ENTER THAT AMOUNT HERE, OTHERWISE PRESS RETURN"
8045 ![159],W$:[142]
8050 ![150](0,0,1,0,32,10,10):![134](7,7,22,10)
8052 W$[178]"IF YOU RECEIVED ANY INCOME IN THE FORM OF CANADA PENSION PLAN "
8053 W$[178]W$[170]"OR Q.P.P PAYMENTS THEN ENTER THAT AMOUNT HERE, OTHERWISE PRESS "
8054 W$[178]W$[170]"'RETURN'"
8055 ![159],W$:[142]
8060 ![150](0,0,1,0,32,10,10):![134](4,22,13,15)
8062 W$[178]"IF YOU RECEIVED ANY INCOME FROM OTHER PENSION SOURCES "
8063 W$[178]W$[170]"THEN ENTER THAT AMOUNT HERE, OTHERWISE PRESS "
8064 W$[178]W$[170]"'RETURN'"
8065 ![159],W$:[142]
8070 ![150](0,1,1,0,32,10,10):![134](4,12,23,10)
8072 W$[178]"THE PERSON WHO IS CLAIMING THE DEDUCTION FOR THE CHILD IS THE "
8073 W$[178]W$[170]"ONE WHO MUST INCLUDE THE FAMILY ALLOWANCE PAYMENTS AS INCOME "
8075 ![159],W$:[142]
8080 ![150](0,0,1,0,32,10,10):![134](12,4,23,9)
8082 W$[178]"REPORT ANY AMOUNT WHICH YOU HAVE RECEIVED DURING 1986 IN THE "
8083 W$[178]W$[170]"FORM OF UNEMPLOYMENT INSURANCE PAYMENTS "
8085 ![159],W$:[142]
8090 ![150](0,1,1,0,32,10,10):![134](15,6,33,8)
8092 W$[178]"YOU WILL HAVE TO COMPLETE SCHEDULE 4 IN ORDER TO CALCULATE YOUR "
8093 W$[178]W$[170]"DIVIDEND INTEREST. (SCHED 4 IS INCLUDED WITH YOUR TAX FORM).
8095 !OPEN,W$:RETURN
8100 !DEF(0,1,1,0,32,10,10):!DIM(15,6,33,4)
8102 W$="THIS FIGURE WILL ALSO COME FROM SCHEDULE 4 "
8105 !OPEN,W$:RETURN
8110 !DEF(0,1,1,0,32,10,10):!DIM(12,3,33,9)
8112 W$="ANY OTHER INCOME THAT YOU HAVENT REPORTED SO FAR MUST BE REPORTED HERE"
8113 W$=W$+" FIRST REPORT THE AMOUNT AND THEN THE SOURCE OR REASON FOR THIS "
8114 W$=W$+"INCOME"
8115 !OPEN,W$:RETURN
8120 !DEF(0,1,1,0,32,10,10):!DIM(12,3,35,7)
8122 W$="WELL, THAT WAS THE HARD PART. NOW ALL WE HAVE TO DO IS TO SEE HOW MUCH"
8123 W$=W$+" WE CAN REDUCE THAT INCOME BY, SO THAT WE PAY AS LITTLE TAX AS "
8124 W$=W$+"POSSIBLE."
8125 !OPEN,W$:RETURN
8200 !DEF(0,1,1,0,32,10,10):!DIM(15,3,35,9)
8202 W$="THIS IS THE TOTAL YOU PAID IN THE YEAR IN CONTRIBUTIONS TO THE C.P.P. "
8204 W$=W$+" THE TOTAL CANNOT EXCEED $419.40. TOTAL BOX (D) ON ALL T4 SLIPS"
8205 !OPEN,W$:RETURN
8210 !DEF(0,1,1,0,32,10,10):!DIM(15,3,35,9)
8212 W$="THIS IS THE TOTAL YOU PAID IN THE YEAR IN CONTRIBUTIONS TO THE U.I.C. "
8214 W$=W$+" THE TOTAL CANNOT EXCEED $604.76. TOTAL BOX (E) ON ALL T4 SLIPS"
8215 !OPEN,W$:RETURN
8230 !DEF(0,0,1,0,32,10,10):!DIM(15,3,35,5)
8232 W$="THIS IS THE TOTAL YOU PAID INTO YOUR COMPANY PENSION PLAN. "
8235 !OPEN,W$
8236 !DEF(0,1,7,0,32,10,10):!DIM(8,26,12,6)
8237 W$="TOTAL OF BOX(F) ON ALL T4 SLIPS"
8238 !OPEN,W$:RETURN
8240 !DEF(0,0,1,0,32,10,10):!DIM(15,3,35,5)
8242 W$="IF YOU CONTRIBUTED TO AN R.R.S.P PLAN FOR 1986 ENTER THAT "
8243 W$=W$+"AMOUNT HERE."
8245 !OPEN,W$:GOSUB3011:RETURN
8250 !DEF(0,1,1,0,32,10,10):!DIM(15,3,35,5)
8252 W$="IN ORDER TO CLAIM CHILD CARE EXPENSES, YOU MUST FILL OUT "
8253 W$=W$+"AND ATTACH SCHEDULE 5 TO YOUR RETURN"
8255 !OPEN,W$:GOSUB3011:RETURN
8260 !DEF(1,1,1,0,32,10,10):!DIM(15,35,4,9)
8262 W$="P L E A S E "
8265 !OPEN,W$
8266 !DEF(0,1,1,0,32,10,10):!DIM(15,3,30,9)
8267 W$="ENTER THE NUMBER OF DEPENDENTS YOU HAVE WHO MEET 'BOTH' THE AGE AND "
8268 W$=W$+"INCOME LIMITATIONS AS INDICATED ABOVE"
8269 !OPEN,W$:GOSUB3011:RETURN
8270 !DEF(0,1,1,0,32,10,10):!DIM(15,3,30,9)
8272 W$="THAT WOULD BE DEPENDENT CHILDREN WHOSE INCOMES EXCEEDED THE LIMITS "
8274 W$=W$+"FOR THEIR AGES AS INDICATED PREVIOUSLY"
8276 !OPEN,W$:GOSUB3011:RETURN
8280 !DEF(0,1,7,0,32,10,10):!DIM(8,6,32,9)
8282 W$="FOR EXAMPLE, IF YOU RECEIVED MOREUIC, CPP OR OAS INCOME THAN YOU "
8283 W$=W$+"SHOULD HAVE, AND HAD TO REPAY IT, THE AMOUNT YOU REPAID[146] WOULD"
8284 W$=W$+" BE ENTERED HERE."
8285 !OPEN,W$:RETURN
8300 !DEF(0,1,1,0,32,10,10):!DIM(10,3,30,10)
8302 W$="PLEASE FILL IN THE APPROPRIATE SECTIONS OF YOUR TAX FORM WITH THE "
8304 W$=W$+"PROPER NUMBERS AS I GIVE THEM TO YOU FOR THIS SECTION. (MIDDLE OF"
8306 W$=W$+" PAGE 2 AND BOTTOM OF PAGE 3)."
8308 !OPEN,W$:RETURN
8316 PRINT" HIT SPACE BAR TO CONTINUE "
8317 POKE198,0:WAIT198,1
8318 RETURN
8480 !DEF(0,1,1,0,32,15,15):!DIM(10,8,24,11)
8482 W$="TO BE ELIGIBLE FOR THE CHILD TAX CREDIT, YOU MUST HAVE RECEIVED A "
8484 W$=W$+"TFA1 SLIP IN YOUR NAME[146])"
8486 PRINT"[147]":!OPEN,W$
8488 INPUT"IS THAT CORRECT (Y[146] OR N[146])";A$
8489 IFA$="N"THENGOTO5775
8500 PRINT"[147]SCHEDULE 10 - CHILD TAX CREDIT"
8505 GOSUB8316:GOSUB12
8506 !DEF(0,1,1,0,32,15,15):!DIM(10,8,24,11)
8507 W$="MY SPOUSE'S NET INCOME FOR 1986 IS "
8508 PRINT"[147]":!OPEN,W$:INPUT"";P7
8509 W$="OTHER SUPPORTING PERSON'S (IF NOT SPOUSE) NET INCOME FOR 1986 IS "
8510 PRINT"[147]":!OPEN,W$:INPUT"";P8
8511 W$="INCOME FOR MYSELF, MY SPOUSE AND OTHER SUPPORTING PERSON FROM "
8513 W$=W$+"SOCIAL ASSISTANCE, G.I.S., SPOUSE'S ALLOWANCE AND WORKER'S COMP. "
8515 W$=W$+"RECEIVED IN 1986 (TOTAL) IS "
8517 PRINT"[147]":!OPEN,W$:INPUT"";P8
8518 W$="CHILD TAX CREDIT PREPAYMENT (FROM BOX(C) ON ATC1 SLIP"
8519 PRINT"[147]":!OPEN,W$:INPUT"";PE
8522 PRINT"[147]FILL IN YOUR SCHEDULE 10 AS FOLLOWS:"
8524 PRINT"LINE 545 IS ";P5
8525 P6=P5*454
8526 PRINT"BLANK 1 IS ";P6
8528 PRINT"BLANK 2 IS ";J
8530 PRINT"LINE 547 (BLANK 3) IS ";P7
8532 PRINT"LINE 548 (BLANK 4) IS ";P8
8534 PRINT"LINE 549 (BLANK 5) IS ";P9
8535 PA=P9+P8+P7+J
8536 PRINT"BLANK 6 IS ";PA
8538 PB=PA-23500:IFPB<0THENPB=0
8539 PRINT"BLANK 8 IS ";PB
8541 PC=PB/20:PC=INT(PC*100+.5)/100
8542 PRINT"BLANK 9 IS ";PC
8543 PD=P6-PC:IFPD<0THENPD=0
8544 PRINT"BLANK 10 IS ";PD
8546 PRINT"LINE 552 (BLANK 11) IS ";PE
8547 B6=PD-PE
8548 PRINT"BLANK 12 IS ";B6
8549 IF B6>0THENPRINT"ON LINE 450 ON PAGE 4 ENTER ";B6
8550 IF B6<0THENPRINT"ON LINE 434 ON PAGE 4 ENTER ";B6*-1
8555 GOSUB8316
8556 GOTO5775
8613 IFL8>0THENGOTO5520
8700 IFM1=<419.4THENG3=M1:GOTO5320
8710 IFM1>419.4THENPRINT"[147]MAXIMUM IS $419.40 IF YOU PAID MORE THAN THAT ENTER "
8712 PRINT"419.40 HERE AND DEDUCT THE EXCESS ON LINE 453 (PAGE 4)"
8714 PRINT" WE'LL REDO THIS ITEM[146].":GOSUB8316:GOTO5287
8720 IFM2=<604.76THENQ9=M2:GOTO5379
8725 IFM2>604.76THENPRINT"[147]MAXIMUM IS $604.76 IF YOU PAID MORE THAN THAT ENTER"
8727 PRINT"604.76 HERE AND DEDUCT THE EXCESS ON LINE 454 (PAGE 4)"
8729 PRINT" WE'LL REDO THIS ITEM[146].":GOSUB8316:GOTO5320
8800 PRINT"[147] 1[146] WILL RESTART TAX EH!D INCLUDING[146] THE CREDITS"
8805 PRINT" 2[146] WILL RESTART TAX EH!D EXCLUDING[146] THE CREDITS"
8815 PRINT" 3[146] WILL RUN THROUGH THE LINE NUMBERS AND VALUES AGAIN"
8820 PRINT" 4[146] WILL RUN CHILD TAX CREDIT ONLY."
8840 INPUT"SELECT 1 2 3 OR 4";A$
8842 IF A$="1"THENRUN20
8844 IF A$="2"THENRUN5000
8846 IF A$="3"THENGOTO5835
8848 IF A$="4"THENGOTO8900
8900 PRINT"[147]SCHEDULE 10 - CHILD TAX CREDIT"
8901 GOSUB8316:GOSUB12
8902 !DEF(0,1,1,0,32,15,15):!DIM(10,8,24,11)
8903 INPUT"MY NET INCOME (LINE 224) = ";J
8904 IFJ<0THENJ=0
8907 W$="MY SPOUSE'S NET INCOME FOR 1986 IS "
8908 PRINT"[147]":!OPEN,W$:INPUT"";P7
8909 W$="OTHER SUPPORTING PERSON'S (IF NOT SPOUSE) NET INCOME FOR 1986 IS "
8910 PRINT"[147]":!OPEN,W$:INPUT"";P8
8911 W$="INCOME FOR MYSELF, MY SPOUSE AND OTHER SUPPORTING PERSON FROM "
8913 W$=W$+"SOCIAL ASSISTANCE, G.I.S., SPOUSE'S ALLOWANCE AND WORKER'S COMP. "
8915 W$=W$+"RECEIVED IN 1986 (TOTAL) IS "
8917 PRINT"[147]":!OPEN,W$:INPUT"";P8
8918 W$="CHILD TAX CREDIT PREPAYMENT (FROM BOX(C) ON ATC1 SLIP"
8919 PRINT"[147]":!OPEN,W$:INPUT"";PE
8922 PRINT"[147]FILL IN YOUR SCHEDULE 10 AS FOLLOWS:"
8924 PRINT"LINE 545 IS ";P5
8925 P6=P5*454
8926 PRINT"BLANK 1 IS ";P6
8928 PRINT"BLANK 2 IS ";J
8930 PRINT"LINE 547 (BLANK 3) IS ";P7
8932 PRINT"LINE 548 (BLANK 4) IS ";P8
8934 PRINT"LINE 549 (BLANK 5) IS ";P9
8935 PA=P9+P8+P7+J
8936 PRINT"BLANK 6 IS ";PA
8938 PB=PA-23500:IFPB<0THENPB=0
8939 PRINT"BLANK 8 IS ";PB
8941 PC=PB/20:PC=INT(PC*100+.5)/100
8942 PRINT"BLANK 9 IS ";PC
8943 PD=P6-PC:IFPD<0THENPD=0
8944 PRINT"BLANK 10 IS ";PD
8946 PRINT"LINE 552 (BLANK 11) IS ";PE
8947 B6=PD-PE
8948 PRINT"BLANK 12 IS ";B6
8949 IF B6>0THENPRINT"ON LINE 450 ON PAGE 4 ENTER ";B6
8950 IF B6<0THENPRINT"ON LINE 434 ON PAGE 4 ENTER ";B6*-1
8955 GOSUB8316:GOTO8800
8975 PRINT"[147]SORRY! YOU'RE INCOME IS TOO HIGH FOR THETAX TABLES. YOU'LL ";
8977 PRINT"HAVE TO FILL OUT A SCHEDULE 1 "
8979 PRINT"I HOPE TO HAVE A SCHED 1 INCLUDED IN NEXT YEAR'S TAX EH!D"
8980 GOSUB8316:GOTO8800